*******************
**** Table B12 ****
******************* 


use "$data/telephone_surveydata_ready" , clear


quietly tab treatmentall, gen(tdummy)

local controls teamdummy* firststickerdummy* preratiow1 lastdebt_demeanedw1 prepaymentsmadedummy* lasttreated 


replace q4percent=q4percent/100

log using "$output/table b12", replace


reg q8 tdummy2-tdummy7 `controls', vce(cluster dayteam) // How often do you think that you are responsible citizen?
estimates store Identity


reg q3legalconsequences tdummy2-tdummy7 `controls', vce(cluster dayteam)
estimates store legal 


reg q3cutoffconsequences tdummy2-tdummy7 `controls', vce(cluster dayteam)
estimates store Cutoff


replace q3Howmuchdebt=q3Howmuchdebt/1000
reg q3Howmuchdebt tdummy2-tdummy7 `controls' , vce(cluster dayteam) // 
estimates store DebtAmount


reg q4percent tdummy2-tdummy7 `controls', vce(cluster dayteam) // 
estimates store Norms


reg q12remembersticker tdummy4 tdummy5 `controls' if tdummy2==1 | tdummy4==1 | tdummy5==1, vce(cluster dayteam) // 
estimates store SaliencePos


reg q12wheresticker tdummy4 tdummy5 `controls' if tdummy2==1 | tdummy4==1 | tdummy5==1, vce(cluster dayteam) //
estimates store PlacedStickerPos


reg q12remembersticker tdummy6 tdummy7 `controls' if tdummy3==1 | tdummy6==1 | tdummy7==1, vce(cluster dayteam) //
estimates store SalienceNeg


reg q12wheresticker tdummy6 tdummy7 `controls' if tdummy3==1 | tdummy6==1 | tdummy7==1, vce(cluster dayteam) // 
estimates store PlacedStickerNeg

log close
